Si PN SSSSSSSS SSS SSS sss SSE PEE RAAAAAA BAARRRRAARnBDOS 


EEE 
eee EErereeeeresecee 
EEPEPEEEEEEEEEE EEE) 


333333333333333233 


An WMNMNMNMNYM 
NM ANNMNYNM 
MMM NMMMNMM 
nn Mn nw 
mn nn ANN 
MMM nwnn nnn 
nnn Www nnn 
nn nnn nnn 
nnn MW nnn 
mn nn nnn 
MANN wnn nnn 
mn “nnn nnn 
AYNNMNM “vwnw 


**F 1LE**1D**SUMOPEN 
SSSSSSSS UU UU MM MM 000000 PPPPPPPP EEEEEEEEEE NN NN 
SSSSSSSS UU UU MM MM 000000 PPPPPPPP EEEEEEEEEE NN NN 
SS UU UU MMMM MMMM 00 00 PP PP EE NN NN 
S$ UU UU MMMM MMMM 00 00 PP PP EE NN NN 
$$ UU UU MM MM MM «(00 00 PP aan NNNN NN 
SS UU UU MM MM MM 00 00 PP PP EE NNNN NN 
SSSSSS UU MM MM 00 00 PPPPPPPP EEEEEEEE NN NN NN 
SSSSSS UU UU MM MM 00 00 PPPPPPPP EEEEEEEE NN 
SS UU UU MM MM 00 00 PP EE N NNNN 
SS UU UU MM MM 00 00 PP EE NN NNNN 
SS UU UU MM MM 00 0O PP EE NN NN coe 
SS UU UU MM MM 00 00 PP EE NN NN cece 
SSSSSSSS UUUUUUUUUU MM MM 000000 PP EEEEEEEEEE NN NN eee 
SSSSSSSS UUUUUUUUUU MM MM 000000 PP EEEEEEEEEE NN NN eee 
LL III SSSSSSSS 
LL IIIIII SSSSSS3S 
LL I] SS 
LL I] SS 
LL I] S$ 
LL I] Ss 
LL I] SSSSSS 
LL I] SSSSSS 
LL I] SS 
LL I] SS 
LL I] SS 
LL I] SS 
LLLLLLLLLL III] SSSSSSSS 
LLLLLLLLLL HI! SSSSSSSS 


16-SEP-1984 02:12:19 VAX/VMS Macro v04-00 Page 0 


SUMSOPEN 
Table of contents 


(3) 2 DECLARATIONS 
(3) SUMSOPEN 
(4) 187 RETURN_FNS 


04000" SSEp=198e 88:55:19 ESUmVSacH8Gngetncman:1 = "28° chy 
-TITLE SUMSOPEN 
-IDENT ‘V04=000' 
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COPYRIGHT (c) 1978, 1980, 1982, 1984 BY 
DIGITAL EQUIPMENT CORPORATION, MAYNARD, MASSACHUSETTS. 
ALL RIGHTS RESERVED. 


OFTWARE IS FURNISHED UNDER A LICENSE AND MAY BE USED AND corres 
N ACCORDANCE WITH THE TERMS OF SUCH bi CeRee AND WITH THE 
ION OF THE ABOVE gilt hl NOTICE. THIS SOF TWA RE OR ANY OTHER 
THEREOF MAY NOT BE PROVIDED OR OTHERWISE MADE AVAILABLE TO ANY 
PERSON. NO TITLE TO AND OWNERSHIP OF THE SOFTWARE IS HEREBY 
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THE INFORMATION IN THIS SOFTWARE IS SUBJECT TO CHANGE WITHOUT NOTICE 
onepoket ite NOT BE CONSTRUED AS A COMMITMENT BY DIGITAL EQUIPMENT 


DIGITAL ASSUMES NO RESPONS * 
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FOR THE USE OR RELIABILITY OF ITS 
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; "FACILITY: 
; ABSTRACT: 


: Source Update Merge procedure to check the existance of 
3 the files in an update files List. 
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; ENVIRONMENT: USER MODE 
; AUTHOR: R. Newland 


; MODIFIED BY: 


; v02-001 BLS0139 Benn Schreiber 26-Jan-1981 
3 Remove deallocation of unused part of resultant name buffer 
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§ : -SBTTL DECLARATIONS 
4; 
5 i Macro definitions 
5 . DEFUPFBLK : Source update merge 
8 $F ABDEF 3 FAB bloc 
SNAMDEF 3; NAM block 
8 
6¢ 3 
4 ; Local storage 
o? 3 
000000 % : .PSECT SUMSRO_DATA,NOEXE ,NOWRT, LONG 
0 3 ; 
6 9 SUM_DEF NAME : 
44 50 55 2€ 90" 2p 71 eASCIC /.UPD/ ; Default file name 
00 72: 
005 og SUM_MAXRSS: 
00000100 Boa a «LONG 256 ; Max size of resultant file name string 
3 Hh 
00000006 £8 ; .PSECT SUMSRW_DATA,NOEXE,LONG 


nN 9 
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.SBTTL SUMSOPEN 


344 
3: Functional description: 


This procedure determines which files in an update files List 
can be successfully opened. The NAM block information of each 
file which can be opened is saved so that smeegyene opens can 
be performed quickly. The resultant file specification string 
is also saved. For files that can not be opened because of a 
‘file not found’ error a warning message is issued and the file 
entry removed. for files a can not be opened for any other 
reason a fatal error message is issued. 


The NAM block of the associated source file is used to 
supply initial default information. 


SSSSsSsssssssssssss 
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The input parameter, address of first update file, will be 
changed if the first file (or the new first file) can not be 
found. If all files can not be found the pointer will become zero. 


Calling sequence: 


CALLG/CALLS 
Inputs: 

BCAP) . fellas th elton af Sirot samen in Update List 
Outputs: 

None 
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0000 -PSECT SUMSCODE,NOWRT,LONG 
, .DEBUG SUMSOPEN 
ocic : .ENTRY SUMSOPEN, “M<R2,R3,R4,R10,R11> 
52 Q0000000'EF 9 r MOVAB SUMSFAB,R2 ; Set FAB pointer 
35 Ag 00000000'EF 9 MOVB SUR_DEFNAME .F ABSB DNS(R2$_; Initialise default file name 
0 A2  Q00000001'EF 0D 1 MOVAL SUM"DEFNAME+1,FABSL DNACR2) 
00 04 A2 «18~«OC 0 108 BBCC #FABSV_NAM, FABSL_FOP(R2), O$ ; Set for open by file name 
53 Of AC OD 8 x MOVL 4(AP) ,R3 ; Set related NAM block pointer 
5A : Bc «(CD MOVL CAPS .R10 3; and Update file block pointer 
5B 08 BC DE 208 MOVAL @8(AP),R11 ; Set pointer to previous block 
54 38 A 9 A "  MOVAB UPF _T_LNAM(RIQ) R4 ; Set NAM block pointer — 
34 A2 OAA 9 3 Ove UPF-Q"CMNT(R105, = ; Set file name string size and address 
0 F ABSB~FNS(R2) 
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SCLOSE 
BLBC 
MOVL 


BSBW 
BLBC 


MOVL 
MOVL 
BEQL 
BRW 


CALLS 


RET 
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NAMSL_RSA(R4) ,NAMSL_ESA( 
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; Set NAM preck penerer 
; Set related N 
; Set size of expanded strin 


block pointer 
Set size of resultant string buffer 


; Address to store resultant syring 
; Address of max resultant string length 
; Get memory block for resultant string 


a 


: Error 
4) ; Set expanded string buffer 
n file 


FAB=R2,ERR=SUMSOPEN_ERR ; 0 


RO,40 
R gronrar 
308 
NAMSL_RSA(R4) 
SUM_MAXRSS 

#2, G*LIBSFREE_VM 


4 fuR 
RO,BOS7 
(R41) 


RETURN_FNS 
RO,80$ 


R10,R11 
(R16) ,R10 


90$ 
20$ 


#0,SUMS$LIB_ERR 


,ERR=SUMSCLOSE_ERR 


if LBS 


; Was error ‘file not found'? 
Yes if EQL 


; Return resultant file spec block 


; Error if LBC 

; Return file name string block 
; Error if LBC 

; Return the update block 


Size of bloc 


; Advance pointer before returning block 
; Free memor 

; Error if LBC 

; Relink update blocks 


;_ Close file 


Error if LBC 
Next related NAM block will be 


; this files’ NAM bloc 
; Return file name string block 


; Error if LBC 


Form previous block pointer 
Point to next Update file block 


and finish if end of List 
Go back for next file 


; Report Library error 
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.SBTTL RETURN_FNS 


Subroutine to return file name string block to virtual memory 
; Inputs: 

; R10 = Address of SUM block 

; Outputs: 


: RO = Success/error status 
R 


ETURN_FNS: 

TSTW UPF_Q_CMNT(R10) ; Was there a file name string? 

BEQL 10$ ; No if EQL so no memory block to return 
PUSHAL UPF_Q_CMNT+4(R10) ; Address of file name string 

PUSHAL UPF_Q-CMNT(R10) ; Size of string 

08 CALLS #2,G6*CIBSFREE_VM ; Return memory 
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SUMSOPEN 
Symbol table 


UPF~B"FILENO 
UPF _K_BLN 
UPF _L_PTR 
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RRREREKE 
RREAAERE 
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00000000 


RERRRERE 
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PSECT name Allocation PSECT No. Attributes 
» Os 0000000 <¢ +) 00 ¢ QO.) NOPIC USR CON ABS LCL 
SABSS i 9 ( 152.) 1 ¢ -) NOPIC USR CON ABS LCL 
SUMSRO_DATA 000 8 ( ) § ( ¢°) NOPIC USR CON REL LEL 
SUMSRW_ DATA 000 ( 0.) ( -) NOPIC USR CON REL LCL 
SUMSCOBE QOOOOOF4 ( 244.) 4 ( 4.) NOPIC USR CON’ REL LCL 
fo an eee eeeececescoeesoeen ont 
; Performance indicators ; 
Phase Page faults CPU Time Elapsed Time 
Initialization 9 00:00:00.0 00:00:00.31 
Command processing 183 80:00; $793 0:00:09-28 
Pass 1 194 00:00:04.29 0:00: 8 
Legg table sort 52 Ba! : 8.39 BBR! 2:16 
ass :00:00. :00:02. 
Symbol table output B38 :00.07 0:00:0 38 
Psect synopsis output 0: 888 +a 0:00:00.11 
Cross-reference output 88:88 °8 -00 888709 08 
Assembler run totals 394 0:00:06.29 0:00:15.6 


The york ine set Limit was 1200 pages. 

gnce bytes (42 pages) of virtual memory were used to buffer _the intermediate code. 
ere were 

211 source Lines were read in Pass 1, producing object records in Pass 2. 

17 pages of virtual memory were used to define 15 macros. 


+ 
i Macro Library statistics H 


Macros defined 


Macro library name 


-$255$DUA28 : CSUM.OBJJSUM.MLB; 1 

$255$DUA28: (SYSLIBISTARLET.MLB; 2 

TOTALS (all Libraries) 11 
492 GETS were required to define 11 macros. 

There were no errors, warnings or information messages. 


MACRO/LIS=LIS$:SUMOPEN/0BJ=0BJ$:SUMOPEN MSRC$:SUMOPEN/UPDATE=(ENHS: SUMOPEN) +L 163: SUM/LIB 
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pages of symbol table space vi Sedat to hold 379 non-local and 9 local symbols. 


OSHR NOEXE NORD 
HR EXE ROD 


RD 
RD 
RD 
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NOWRT NOVEC BYTE 


WRT NOVEC LONG 
NOWRT NOVEC LONG 
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IGIT 
ONFI 
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